home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / pcpil / sample10.pil < prev    next >
Text File  |  1979-12-31  |  861b  |  45 lines
  1. T:Program to store student scores.
  2. :
  3. :Each time you run this your name
  4. :and a score is stored in the file
  5. :      K.REC
  6. :
  7.  
  8. D:NAME$(30), REC$(35)
  9.  
  10. *NAME
  11. T:Please enter your name.
  12. A:$NAME$
  13. J(%B=" "):NAME
  14. T:Thank you.
  15. W:15
  16.  
  17. *SCORE
  18. TX:Pick a number between 1 and 100.
  19. A:#SCORE
  20. J(SCORE<1 ! SCORE>100):SCORE
  21. T:
  22. T:Thank you. We will pretend that
  23. T:you have just taken a test and
  24. T:that your score was #SCORE .
  25. T:
  26. W:30
  27.    
  28. R: Construct a 35-byte record. Name
  29. R: is first 30 bytes, score in last 5 bytes.
  30. C: REC$(1,30) = NAME$
  31. C: REC$(31,5) = SCORE
  32. R: Next statements save student name
  33. R: and score in the KEEP file, K.REC
  34. K: REC$
  35.  
  36. T:Your score has been recorded in the 
  37. :student records file. You can list
  38. :this file by the command
  39. :
  40. :     TYPE K.REC
  41. :
  42. :Notice that the last entry in the
  43. :file contains your name and score.
  44.  
  45.